home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / SONICK2.ZIP / SonicK / remote.ini < prev    next >
INI File  |  1997-02-15  |  34KB  |  660 lines

  1. [Users]
  2. n0=90:*!*KSonic@*.ix.netcom.com
  3. n1=66:*!*hormiga@200.26.96.*
  4. n2=66:*!*MeOF@*.mtl.total.net
  5. n3=66:*!*g@*.223.mmtl.videotron.net
  6. n4=50:*!*Shaila@*.dial.bright.net
  7. n5=50:*!*Simon1@*.dial.bright.net
  8. n6=3:*!*valhalla@*.bserv.com
  9. n7=1:*!*Black@*.dialsprint.net
  10. n8=1:*!*brad@203.29.14.*
  11. n9=1:*!*chuggie@*.Max7.Dallas.TX.MS.UU.NET
  12. n10=1:*!*master12@*.sfsu.edu
  13. n11=66:*!*SonicK@*.ix.netcom.com
  14. n12=66:*!*Caan@*.cyberbeach.net
  15.  
  16. [Variables]
  17. n0=%chan #vault
  18. n1=%visitor#mIRC_32_HeLp 16
  19. n2=%ultrapro OFF
  20. n3=%counters 26
  21. n4=%visitor#buttersnoop 1
  22. n5=%max.op 100
  23. n6=%max.ban on
  24. n7=%question Do you have my º⌐R∩PT????
  25. n8=%slotnick |^|ODIN|^|
  26. n9=%away On
  27. n10=%returnnick Mr_KooL_
  28. n11=%awaynick Mr_KooL_
  29. n12=%awaymsg SkateBoarding
  30. n13=%visitor#beginner 80
  31. n14=%sitepro *!*@kmlp01m01-35.bctel.ca
  32. n15=%visitor#teens 766
  33. n16=%pt 7
  34. n17=%visitor#winsock 4
  35. n18=%visitor#ircbar 145
  36. n19=%cln.check on
  37. n20=%visitor#chatzone 238
  38. n21=n0=%version 12º|Bartender|º 4ver2.0c (testing) (for 9mIRC4.7)
  39. n22=%idle No
  40. n23=%netsplitdet off
  41. n24=%kickircops [ON]
  42. n25=%ircopnum 0
  43. n26=%per 137
  44. n27=%pn 138
  45. n28=%op 18
  46. n29=%nop 119
  47. n30=%totalop 13
  48. n31=%totalnop 87
  49. n32=%detectircops [ON]
  50. n33=%echoit [YES]
  51. n34=%ircopchan #mIRC_Scripts
  52. n35=%totalhits 1006
  53. n36=%say /echo
  54. n37=%teen 978
  55. n38=%temp ircd.netcom.com[@206.217.29.1]
  56. n39=%friends 28
  57. n40=%visitor#00+friends 1
  58. n41=%visitor#mirc_scripts 697
  59. n42=%visitor#mIRC 5
  60. n43=%visitor#Scripts'nwavs 1
  61. n44=%visitor#scriptsock 3
  62. n45=%visitor#sandman 2
  63. n46=%visitor#Miniskirt 1
  64. n47=%visitor#mirc_scripters_plus 6
  65. n48=%visitor#mirc_ascii 1
  66. n49=%visitor#mirc_battle_room 30
  67. n50=%numbersinceonline 7
  68. n51=%TOTALnumber 
  69. n52=%DateStarted
  70. n53=% 1
  71. n54=%adlvlMr_KooL_ 66
  72. n55=%visitor#IRC-Gameroom 2
  73. n56=%visitor#gayteenboyz 9
  74. n57=%visitor#gayteenboyzpics 13
  75. n58=%adlvlTodd_NV 1
  76. n59=%adlvlJosh15 1
  77. n60=%adlvlChart 1
  78. n61=%adlvlRomeoCA 1
  79. n62=%visitor#Mad-Teens 1
  80. n63=%visitor#IRCAddicts 5
  81. n64=%visitor#scriptzone 14
  82. n65=%visitor#warez_finland 3
  83. n66=%snick ThePressu
  84. n67=%schan #!teen-warez!
  85. n68=%i 0
  86. n69=%floodpro disable
  87. n70=%maxlines 6
  88. n71=%maxsecs 5
  89. n72=%caponoff disable
  90. n73=%caps.trigger 75
  91. n74=%filter.#!teen-warez! Lamer
  92. n75=%privflood disable
  93. n76=%pmaxlines 7
  94. n77=%pmaxsecs 11
  95. n78=%split1 voyager
  96. n79=%split2 wiznet-hub
  97. n80=%filteronoff disable
  98. n81=%splitstat ON
  99. n82=%visitor#CyberChat 15
  100. n83=%visitor#ircsupport 2
  101. n84=%visitor#Nitr0 2
  102. n85=%text hello
  103. n86=%space  
  104. n87=%thischar h
  105. n88=%backtext olleh
  106. n89=%visitor#vault 39
  107. n90=%todo msg #vault
  108.  
  109. [Commands]
  110. n0=1:sound:/ignore -u15 $wildsite | /echo 4 $active *** $nick has played: $nopath($parm2) | %sitepro = $wildsite | extrapro | halt
  111. n1=1:time:/ignore -u15 $wildsite | /notice $nick $chr(1) $+ TIME look at your watch STUPID | /echo 4 $active***WARNING*** flood posibility!! { TIME } detected from ╗ $+ $nick $+ ½  | %sitepro = $wildsite | extrapro | halt
  112. n2=1:version:/ignore -u25 $wildsite | /notice $nick VERSION2 Flood Protection By baz`oo`ka ⌐ (Bah, ya cant make me blink!) | /echo 4 $active ***WARNING*** flood posibility!! { VERSION } detected from ╗ $+ $nick $+ ½ | %sitepro = $wildsite | extrapro | halt
  113. n3=1:finger:/ignore -u25 $wildsite | /notice $nick $chr(1) $+ FINGER my finger is busy right now..(scratching my butt) | /echo 4 $active ***WARNING*** flood posibility!! { FINGER } detected from ╗ $+ $nick $+ ½ | %sitepro = $wildsite | extrapro | halt
  114. n4=90:ping: {
  115. n5=  ignore -u30 $wildsite
  116. n6=  %sitepro = $wildsite | extrapro 
  117. n7=  If ($len($parm2*) != 9) { echo 4 $active [#] Denied PING Request from $nick (Fake PING) | notice $nick Bah.. You Lame Fuck! Dont Try That again! | halt }
  118. n8=  else { notice $nick FLOOD? Flood Protection enabled on: *!*@ $+ $site ... address scanned | /notice $nick $chr(1) $+ SCAN Access Granted. | /notice $nick $chr(1) $+ PING $left(10,$parm2) | echo 4 $active ***WARNING*** flood posibility!! { PING } detected from ╗ $+ $nick $+ ½ | halt }
  119. n9=}
  120. n10=1:PING: {
  121. n11=  ignore -u30 $wildsite
  122. n12=  %sitepro = $wildsite | extrapro 
  123. n13=  If ($len($parm2*) != 9) { echo 4 $active [#] Denied PING Request from $nick (Fake PING) | notice $nick Bah.. You Lame Fuck! Dont Try That again! | halt }
  124. n14=  else { notice $nick FLOOD? Flood Protection enabled on: *!*@ $+ $site ... address scanned | /notice $nick $chr(1) $+ SCAN Access Denied !!! | /echo 4 $active ***WARNING*** flood posibility!! {PING} detected from ╗ $+ $nick $+ ½ (No AcCeS) | /halt }
  125. n15=}
  126. n16=1:clientinfo:/ignore -u20 $wildsite | /notice $nick $chr(1) $+ CLIENTINFO chash only! | /echo 4 $active ***WARNING***  { CLIENTINFO } detected from ╗ $+ $nick $+ ½  | %sitepro = $wildsite | extrapro | halt
  127. n17=1:userinfo:/ignore -u20 $wildsite | /notice $nick USERINFO Why the fuck do you want to know ? | /echo 4 $active ***WARNING*** flood posibility!! { USERINFO } detected from ╗ $+ $nick $+ ½ | %sitepro = $wildsite | extrapro | halt
  128. n18=1:dcc chat: {
  129. n19=  %sitepro = $wildsite | extrapro 
  130. n20=  if ($parm5 == 19) {
  131. n21=    ignore -u25 $wildsite
  132. n22=    notice $nick Bah... Another Lamer Who's Trying to  port 19 CharGen flood me... Get a life ya piece of shit !!
  133. n23=    echo 4 $active *** $nick at $site TRIED to Dcc Chat CharGen flood you, port 19 (Bah didnt make ya Blink!)
  134. n24=    halt
  135. n25=  }
  136. n26=  else { 
  137. n27=    set %adlvl [ $+ [ $nick ] ] $level($address($nick,3)) 
  138. n28=    ruser $nick 3 | ruser $nick 2
  139. n29=    guser 160 $nick 2 | /timer 1 20 /ruser 160 $nick 2 
  140. n30=    timer 1 22 guser -a %adlvl [ $+ [ $nick ] ] $nick 3
  141. n31=  }
  142. n32=}
  143. n33=1:dcc send: {
  144. n34=  %sitepro = $wildsite | extrapro 
  145. n35=  if ($parm5 == 19) {
  146. n36=    echo 4 $active *** Denied Fake Dcc Send from $nick at $site (File Refused: $parm3 $+ )
  147. n37=    notice $nick Bah.. Ya Stupid lamer, Get a life !!
  148. n38=    ignore -u15 $wildsite
  149. n39=    halt
  150. n40=  }
  151. n41=  elseif ($get(0) >= 7) { 
  152. n42=    notice $nick Sorry but I'v reached the Max Dcc Gets I can mannage... Please Try again in a few minutes.
  153. n43=    echo 4 $active *** Denied Dcc Send from $nick (File To Big: $parm6 Bytez..)
  154. n44=    ignore -u10 $wildsite
  155. n45=    halt
  156. n46=  }
  157. n47=  elseif ($parm6 > 1000000) { 
  158. n48=    notice $nick []baz▀ot[] Sorry But i Dont Get Files at The size " $+ $parm6 $+ " ... Please Try a smaller File. 
  159. n49=    echo 4 $active Denied File Recive from $nick (size to big: $parm6 $+ )
  160. n50=    ignore -u15 $wildsite
  161. n51=    halt 
  162. n52=  }
  163. n53=  else { 
  164. n54=    set %adlvl [ $+ [ $nick ] ] $level($address($nick,3)) 
  165. n55=    ruser $nick 3 | ruser $nick 2
  166. n56=    guser 160 $nick 2 | /timer 1 20 /ruser 160 $nick 2 
  167. n57=    timer 1 22 guser -a %adlvl [ $+ [ $nick ] ] $nick 3 
  168. n58=  }
  169. n59=}
  170. n60=+160:dcc send: {
  171. n61=  %sitepro = $wildsite | extrapro 
  172. n62=  if ($parm6 > 1000000) { 
  173. n63=    notice $nick Sorry But i Dont Get Files at The size " $+ $parm6 $+ " ... Please Try a smaller File. 
  174. n64=    echo 4 $active *** Denied Dcc Send from $nick (File To Big: $parm6 Bytez..)
  175. n65=    ignore -u15 $wildsite
  176. n66=    halt 
  177. n67=  }
  178. n68=  elseif ($parm5 == 19) {
  179. n69=    echo 4 $active *** Denied Fake Dcc Send from $nick at $site (File Refused: $parm3 $+ )
  180. n70=    notice $nick Bah.. Ya Stupid lamer, Get a life !!
  181. n71=    ignore -u30 $wildsite
  182. n72=    halt
  183. n73=  }
  184. n74=  else { ignore -u40 $wildsite | amsg *** $nick $wildsite is being ignored for 40 Seconds because of a mass send }
  185. n75=}
  186. n76=+160:dcc chat: {
  187. n77=  %sitepro = $wildsite | extrapro 
  188. n78=  if ($parm5 == 19) {
  189. n79=    ignore -u30 $wildsite
  190. n80=    notice $nick Bah... Another Lamer Who's Trying to  port 19 CharGen flood me... Get a life ya piece of shit !!
  191. n81=    echo 4 $active *** $nick at $site TRIED to Dcc Chat CharGen flood you, port 19 (Bah didnt make ya Blink!)
  192. n82=    halt
  193. n83=  }
  194. n84=  else { ignore -u40 $wildsite | amsg *** $nick at $wildsite is being ignored for 40 Seconds because of a mass chat }
  195. n85=}
  196. n86=1:dcc resume:/notice $nick $chr(1) $+ RESUME? sorry that the file didnt go all the way the first time =)
  197. n87=1:A:/ignore -u20 $wildsite | /notice $nick $chr(1) $+ ABC AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz | /echo 4 $active ***WARNING*** flood posibility!! { A } detected from ╗ $+ $nick $+ ½ | %sitepro = $wildsite | extrapro | halt
  198. n88=1:do:/ignore -u15 $wildsite | /notice $nick $chr(1) $+ ME? Why Dont you Do That Your Self? | /echo 4 $active ***WARNING*** flood posibility!! { $parms } detected from ╗ $+ $nick $+ ½ (sheesh what a lamer. . .) | %sitepro = $wildsite | extrapro | halt
  199. n89=1:echo:/ignore -u20 $wildsite | /notice $nick $chr(1) $+ ECHO yeah yeah bleah bleah bleah... lame flood attempt u moron | /echo 4 $active ***WARNING*** flood posibility!! { ECHO } detected from ╗ $+ $nick $+ ½ | %sitepro = $wildsite | extrapro | halt
  200. n90=#floodpro end
  201. n91=#pager start
  202. n92=1:page:/ignore -u20 $wildsite | /beep 20 | /timer 1 5 /beep 20 | /notice $nick i was paged.. if i hear ya i'll come! | /echo 4 $active *** you have been paged by ╗ $+ $nick $+ ½ | %sitepro = $wildsite | extrapro | halt
  203. n93=#pager end
  204. n94=1:*:/ignore -u25 $wildsite | notice $nick $chr(1) $+ Umm I dont know that one.. | /echo 4 $active ***WARNING*** flood posibility!! { $parms } detected from ╗ $+ $nick $+ ½ | %sitepro = $wildsite | extrapro | halt
  205. n95=#messagerecorder disabled
  206. n96=1!:tkpage: {
  207. n97=  .write awaymsg.txt -=A Person has Paged you
  208. n98=  .write awaymsg.txt -=Name : $nick
  209. n99=  .write awaymsg.txt -=Time : $time
  210. n100=  .write awaymsg.txt -=Msgs : $parm2*
  211. n101=  .notice $nick 11-= 12-=<2T12h11e12K2i12t11t12e2n12>=- 11=- 2-=- Your Message has been Recorded, Have a Nice Day12>=- 11=-
  212. n102=}
  213. n103=#messagerecorder end
  214. n104=1:ping:/notice $nick  Awww you missed! You have terrible aim! Keep practicing!
  215. n105=1:finger:/notice $nick Nice try buddy! **virus downloaded** Have a nice day! 
  216. n106=1:whosis:/notice $nick So u wanna know who I am huh? Well I ain't telling!
  217. n107=1:version:/notice $nick Version? I've got a version?? What's a version??? 
  218. n108=1:time:/notice $nick Do you really want to know the time?I mean is it really important 
  219. n109=50:CODE:$parm2*
  220. n110=#pager disabled
  221. n111=1:page:/beep 3 500 | /notice $me ***** $nick just paged you ***** | /speak $nick just paged you | /notice $nick Hi, I'll answer you a.s.a.p, if I don't within a minute or so please leave a message :-) 
  222. n112=#pager end
  223.  
  224. [Events]
  225. n0=1:ON TEXT:!Sonic:#:/dcc send $nick C:\SonicK\SonicK.zip
  226. n1=1:ON TEXT:!KooL:#:/dcc chat $nick
  227. n2=#slots start
  228. n3=1:ON TEXT:!slot*:#: {
  229. n4=  if (%slotnick = $null) {
  230. n5=    set %slotnick $nick
  231. n6=    set %slot1 $read c:\SonicK\sline1.txt
  232. n7=    set %slot2 $read c:\SonicK\sline1.txt
  233. n8=    set %slot3 $read c:\SonicK\sline1.txt
  234. n9=    if ((%slot1 = %slot2) && (%slot1 = %slot3)) /goto winner
  235. n10=    if (%slot1 = %slot2)  goto nudge
  236. n11=    if (%slot1 = %slot3) goto nudge
  237. n12=    if (%slot2 = %slot3) goto nudge
  238. n13=    msg $chan $nick got %slot1 %slot2 %slot3
  239. n14=    msg $chan Sorry $nick ,You loose
  240. n15=    goto end
  241. n16=    :winner
  242. n17=    msg $chan $nick got %slot1 %slot2 %slot3
  243. n18=    msg $chan You win $nick $+ !!!!
  244. n19=    goto end
  245. n20=    :nudge
  246. n21=    set %nudge $nick
  247. n22=    enable #nudge
  248. n23=    msg $chan $nick got %slot1 %slot2 %slot3
  249. n24=    msg $chan $nick Type !nudge <1,2,or 3> 
  250. n25=    halt
  251. n26=    :end
  252. n27=    unset %slotnick
  253. n28=    unset %slot1
  254. n29=    unset %slot2
  255. n30=    unset %slot3
  256. n31=    halt
  257. n32=  }
  258. n33=  notice $nick wait a min and try again (its busy)
  259. n34=}
  260. n35=#slots end
  261. n36=#nudge disabled
  262. n37=1:ON TEXT:!nudge*:#: {
  263. n38=  if ($nick isin %nudge) {
  264. n39=    if ($parm2 = 1) set %slot1 $read c:\SonicK\sline1.txt
  265. n40=    if ($parm2 = 2) set %slot2 $read c:\SonicK\sline1.txt
  266. n41=    if ($parm2 = 3) set %slot3 $read c:\SonicK\sline1.txt
  267. n42=    if ($parm2 = $null) { /msg $chan Type !nudge <1,2,or 3> $nick | /halt }
  268. n43=    if ($parm2 > 3) { /msg $chan Type !nudge <1,2,or 3> $nick | /halt }
  269. n44=    if ((%slot1 = %slot2) && (%slot1 = %slot3)) /goto winner
  270. n45=    msg $chan $nick got %slot1 %slot2 %slot3
  271. n46=    msg $chan Sorry $nick You still loose
  272. n47=    goto end
  273. n48=    :winner
  274. n49=    msg $chan $nick got %slot1 %slot2 %slot3
  275. n50=    msg $chan You win $nick $+ !!!
  276. n51=    goto end
  277. n52=    :end
  278. n53=    unset %nudge
  279. n54=    unset %slot1
  280. n55=    unset %slot2
  281. n56=    unset %slot3
  282. n57=    unset %slotnick
  283. n58=    disable #nudge
  284. n59=  }
  285. n60=}
  286. n61=#nudge end
  287. n62=#nudge end
  288. n63=1:on join:#: {
  289. n64=  %chan = $remove($remove($chan,[),]) | inc %visitor [ $+ [ %chan ] ]
  290. n65=  if ($readini $mircdir $+ comes.ini %chan $address($nick,3) == $null) { writeini $mircdir $+ comes.ini %chan $address($nick,3) 1 | notice $nick Welcome To %chan $+ , You Are Our %visitor [ $+ [ %chan ] ] $+ th Visitor And I Noticed That This iS Your First Time Here Since I Started Counting ! So Have Fun And Enjoy Your Stay ! }
  291. n66=  else { %counters = $readini $mircdir $+ comes.ini %chan $address($nick,3) |  %counters = [ %counters + 1 ] |  writeini $mircdir $+ comes.ini %chan $address($nick,3) %counters | notice $nick Welcome To %chan $+ , ²You Are Our %visitor [ $+ [ %chan ] ] $+ th Visitor And You Have Been Here %counters Times Since  Started Counting ! So Have Fun And Enjoy Your Stay ! }
  292. n67=}
  293. n68=1:on invite:#: {
  294. n69=  ignore -u15 $wildsite
  295. n70=  %sitepro = $wildsite | extrapro | halt
  296. n71=  set %in $level($address($nick,4))
  297. n72=  if (%in > 30) { join $chan | notice $nick okay okay i'm comming.. }
  298. n73=  else { amsg $nick ( $+ $address $+ ) invites you to join $chan | /notice $nick you are not othorised to invite me }
  299. n74=}
  300. n75=1:on join:#: {
  301. n76=  if (%jf [ $+ [ $nick [ $+ [ $chan ] ] ] ] != $nick) { set %jf [ $+ [ $nick [ $+ [ $chan ] ] ] ] $nick | timer 1 5 unset %jf [ $+ [ $nick [ $+ [ $chan ] ] ] ]  }
  302. n77=  elseif (%jf [ $+ [ $nick [ $+ [ $chan ] ] ] ] == $nick) { ban $chan %jf [ $+ [ $nick [ $+ [ $chan ] ] ] ] 3 | kick $chan %jf [ $+ [ $nick [ $+ [ $chan ] ] ] ] []baz▀ot[] Bah Join flood?? . . . Get a life! []baz▀ot[] | unset %jf [ $+ [ $nick [ $+ [ $chan ] ] ] ] }
  303. n78=}
  304. n79=1:on text:*ping me*:#:/ctcp $nick ping
  305. n80=1:on text:*ping pl*:#:/ctcp $nick ping
  306. n81=1:on text:*my ping*:#:/ctcp $nick ping
  307. n82=1:on text:*lagged?*:#:/ctcp $nick ping
  308. n83=1:on action:*ping me*:#:/ctcp $nick ping
  309. n84=1:on action:*ping pl*:#:/ctcp $nick ping
  310. n85=1:on action:*my ping*:#:/ctcp $nick ping
  311. n86=1:on action:*lagged?*:#:/ctcp $nick ping
  312. n87=1:on ctcpreply:*ping*: %pt = $ctime - $parm2 | /notice $nick **Your ping reply is %pt seconds**
  313. n88=1:on join:%chanprot: {
  314. n89=  if (%cln.check != On) { halt }
  315. n90=  if ($nick == $me) { echo 12 -a Updating IAL List For $chan . . . (Feel Free To Type " /cln " for a fast Clone Scan...) | who $chan }
  316. n91=  if (($isme($nick) == true) || ($isbot($nick) == true)) { halt }
  317. n92=  %on.c = 1 | if ($ial($wildsite,0) == 0) { echo 3 -a $colr(6,***) Error Getting IAL Information On $site | halt }
  318. n93=  :start
  319. n94=  if [ $ial($wildsite,%on.c).nick ] ison $chan { %on.t = %on.t $ial($wildsite,%on.c).nick | inc %on.c | goto start }
  320. n95=  %on.e = $count(%on.t,$chr(32)) + 1
  321. n96=  if (%on.e >= 2 ) {
  322. n97=    if ($level($address($nick,0)) < 100) { %on.a = %max.nop } | else { %on.a = %max.op }
  323. n98=    if (%on.e <= %on.a) { notice $chan _-+= $grammar(And,%on.t) Are %on.e Clients Of $site On $chan !! $bold(Max Connections Allowed:) $bold($under($colr(12,%on.a))) ! =+-_ | echo 4 -a _-+= $grammar(And,%on.t) Are %on.e Clients Of $site On $chan !! $bold(Max Connections Allowed:) $bold($under($colr(12,%on.a))) ! =+-_ }
  324. n99=    if (%on.e > %on.a) {
  325. n100=      notice $chan Hey !!! $grammar(And,%on.t) Are %on.e Clients Of $site On $chan !!! $bold(They Passed The Number Of Clones Allowed!!!) $under($bold(Get Em!!)) | echo 4 -a Hey !!! $grammar(And,%on.t) Are %on.e Clients Of $site On $chan !!! $bold(They Passed The Number Of Clones Allowed!!!) $under($bold(Get Em!!)) 
  326. n101=      if ($me isop $chan) { if (%max.ban = on) { ban -u300 $chan $nick 2 } | if (%max.kick = on) { %on.do = 0 | :rem | inc %on.do | if (%on.do > %on.e) { goto end } | else { %on.rem = $gettok(%on.t,%on.do,32) | kick $chan %on.rem $bb1 Tsk Tsk Tsk.. Clone Number %on.do Out Of %on.e ... There Ya Go Lamer :P $bb2 | goto rem } } }
  327. n102=      else { goto end } 
  328. n103=    }
  329. n104=  }
  330. n105=  :end | unset %on* | halt
  331. n106=}
  332. n107=#door disabled
  333. n108=;1:ON JOIN:#: {
  334. n109=guser 10 $nick 3
  335. n110=timer 1 60 /ruser $nick 3
  336. n111=}
  337. n112=10:ON PART:#: {
  338. n113=ban $chan $nick 3
  339. n114=msg $chan $nick Was Banned For Revolving Door
  340. n115=ruser $nick 3
  341. n116=}
  342. n117=10:ON TEXT:*:#:/ruser $nick 3
  343. n118=#door end
  344. n119=#partyline start
  345. n120=1:on chatopen: {
  346. n121=who $nick
  347. n122=%p = 0
  348. n123=:co
  349. n124=inc %p
  350. n125=if (%p > $chat(0)) { unset %p | halt }
  351. n126=msg = $+ $chat(%p) $nick has joined the partyline!
  352. n127=goto co
  353. n128=}
  354. n129=1:on chat:.me *: {
  355. n130=%p = 0
  356. n131=:c
  357. n132=inc %p
  358. n133=if (%p > $chat(0)) { unset %p | halt }
  359. n134=if ($nick != $chat(%p)) { msg = $+ $chat(%p) * $nick $parm2* }
  360. n135=goto c
  361. n136=}
  362. n137=1:on chat:.who: {
  363. n138=msg =$nick nick!user@host
  364. n139=msg =$nick ===========
  365. n140=%w = 0
  366. n141=:w
  367. n142=inc %w
  368. n143=%ini = $readini $mircdirwho.ini who $chat(%w)
  369. n144=if (%w > $chat(0)) { msg =$nick End of .who list | unset %ini %w | halt }
  370. n145=msg =$nick %ini
  371. n146=goto w
  372. n147=}
  373. n148=1:on chat:*: {
  374. n149=%p = 0
  375. n150=:c
  376. n151=inc %p
  377. n152=if (%p > $chat(0)) { unset %p | halt }
  378. n153=if ($nick != $chat(%p)) { msg = $+ $chat(%p) < $+ $nick $+ > $parms }
  379. n154=goto c
  380. n155=}
  381. n156=1:on chatclose: {
  382. n157=remini $mircdirpl\who.ini who $nick
  383. n158=%p = 0
  384. n159=:ccl
  385. n160=inc %p
  386. n161=if (%p > $chat(0)) { unset %p | halt }
  387. n162=msg = $+ $chat(%p) $nick has left the partyline.
  388. n163=goto ccl
  389. n164=}
  390. n165=#partyline end
  391. n166=#russian start
  392. n167=1:ON NICK: {
  393. n168=if ($nick isin %rusplay) /set %rusplay $newnick
  394. n169=if ($nick isin %rusplay2) /set %rusplay2 $newnick
  395. n170=}
  396. n171=1:ON TEXT:!quit*:#: {
  397. n172=if ($nick = %rusplay) { /msg $chan HAHA %rusplay $+ ,chicken y could'nt you go all the way?? | /msg $chan Looks like %rusplay2 Wins!!! | /goto end }
  398. n173=if ($nick = %rusplay2) { /msg $chan HAHA %rusplay2 $+ ,chicken y could'nt you go all the way?? | /msg $chan Looks like %rusplay Wins!!! | /goto end }
  399. n174=unset %landon
  400. n175=unset %chanber
  401. n176=unset %rusplay
  402. n177=unset %rusplay2
  403. n178=disable #trigger
  404. n179=}
  405. n180=1:ON TEXT:!russian*:#: {
  406. n181=if (%rusplay = $null) goto start
  407. n182=if (%rusplay2 = $null) goto start2
  408. n183=if ($nick = %rusplay) { /notice $nick Your already playing! | /halt }
  409. n184=if ($nick = %rusplay2) { /notice $nick Your already playing! | /halt }
  410. n185=if (($nick !isin %rusplay) && ($nick !isin %rusplay2)) { /notice $nick Try again later (its busy) | /halt }
  411. n186=:start
  412. n187=set %rusplay $nick
  413. n188=set %chanber $rand(1,8)
  414. n189=msg $chan Russian Roulette has started player one is $nick
  415. n190=msg $chan We need another player!!!! type !russian
  416. n191=halt
  417. n192=:start2
  418. n193=set %rusplay2 $nick
  419. n194=msg $chan We have our players!! they are %rusplay and %rusplay2
  420. n195=msg $chan okay %rusplay you go first type !trigger to continue and !quit to quit
  421. n196=set %player 1
  422. n197=enable #trigger 
  423. n198=halt
  424. n199=}
  425. n200=#russian end
  426. n201=#trigger disabled
  427. n202=1:ON TEXT:!trigger*:#: {
  428. n203=if (($nick !isin %rusplay) && ($nick !isin %rusplay2)) { /notice $nick Try again later (its busy) | /halt }
  429. n204=if (%player = 2) {
  430. n205=  if ($nick = %rusplay2) {
  431. n206=    inc %landon
  432. n207=    if (%landon = %chanber) /goto pow
  433. n208=    goto else
  434. n209=  } 
  435. n210=  /notice $nick its not your turn!!! | /halt 
  436. n211=}
  437. n212=if (%player = 1) {
  438. n213=  if ($nick = %rusplay) {
  439. n214=    inc %landon
  440. n215=    if (%landon = %chanber) /goto pow
  441. n216=    goto else
  442. n217=  } 
  443. n218=  /notice $nick its not your turn!!! | /halt 
  444. n219=}
  445. n220=:else
  446. n221=if ((%player = 1) && ($nick = %rusplay)) { /msg $chan CLICK....well $nick You made it!!! | /msg $chan Its your turn %rusplay2 | /set %player 2 | /halt }
  447. n222=if ((%player = 2) && ($nick = %rusplay2)) { /msg $chan CLICK....well $nick You made it!!! | /msg $chan Its your turn %rusplay | /set %player 1 | /halt }
  448. n223=:pow
  449. n224=if ((%player = 1) && ($nick = %rusplay)) { /msg $chan POW!!!!..well $nick YOUR DEAD | /msg $chan Looks Like %rusplay2 WINS!!! | /kick $chan $nick ><POW!! your DEAD>< | /goto end }
  450. n225=if ((%player = 2) && ($nick = %rusplay2)) { /msg $chan POW!!!!..well $nick YOUR DEAD | /msg $chan Looks Like %rusplay WINS!!! | /kick $chan $nick ><POW!! your DEAD>< | /goto end }
  451. n226=:end
  452. n227=unset %chanber | /unset %rusplay | /unset %rusplay2 | /unset %player | /unset %landon | /disable #trigger | /halt
  453. n228=}
  454. n229=#trigger end
  455. n230=#polls disabled
  456. n231=1:ON NICK: {
  457. n232=if ($newnick isin %notagain) /halt
  458. n233=if ($nick isin %notagain) { /notice $newnick HAHAHA!! dont think so!!  | /set %notagain %notagain $newnick }
  459. n234=}
  460. n235=1:ON TEXT:!yes*:#: {
  461. n236=if ($nick isin %notagain) { /notice $nick You Can Only Vote Once D00D  | /halt }
  462. n237=/notice $nick THaNK You FoR VoTiNG YeS!! :) 
  463. n238=/set %notagain %notagain $nick
  464. n239=/inc %yes
  465. n240=/inc %totalvoters
  466. n241=}
  467. n242=1:ON TEXT:!no*:#: {
  468. n243=if ($nick isin %notagain) { /notice $nick You Can Only Vote Once D00D  | /halt }
  469. n244=/notice $nick THaNK You FoR VoTiNG No!! :) 
  470. n245=/set %notagain %notagain $nick
  471. n246=/inc %no
  472. n247=/inc %totalvoters
  473. n248=}
  474. n249=#poll end
  475. n250=1:on join:#:backnick
  476. n251=1:ON DISSCONNECT:$$server*.{
  477. n252=/wavplay doh!.wav
  478. n253=+66:on text:*:#:/kick $chan $nick <Shut Up Maggot!!> 
  479. n254=+66:on action:*:#:/kick $chan $nick <Shut Up Maggot!!> 
  480. n255=+66:on notice:*:#:/kick $chan $nick <Shut Up Maggot!!>
  481. n256=+66:on text:*:?:/msg $nick u are not alowed to msg me | /kick $chan $nick <Shut Up maggot!!!>
  482. n257=1:ON TEXT:*!bar*:#:/query $nick | /play $nick c:\bott\mbott\bar20.txt  1000ms
  483. n258=#bartender start 
  484. n259=1:ON TEXT:*~roasted corn*:#:/msg $chan 12ºBartenderº hands $nick an ear of roasted corn, be careful it's hot!
  485. n260=1:ON TEXT:*~chicken*:#:/msg $chan 12ºBartenderº carefully places a siler platter in front of $nick | /describe $chan He then proceedes to place the Golden Grilled Chicken on it. | /describe $chan ºBartenderº eat up....its the house special!
  486. n261=1:ON TEXT*~smoky ribs*:/msg $chan 12ºBartenderº starts the grill | /describe $chan ºBartenderº pops the smoky ribs on the grill | /describe $chan ºBartenderº puts the ribs on a plate and hands them to $nick. Perfect, like always........
  487. n262=1:ON TEXT:*~lamb*:#:/msg $chan 12ºBartenderº sets a leg of lamb in front of $nick, enjoy!
  488. n263=1:ON TEXT:*~hot chocolate*:#:/msg $chan 12ºBartenderº puts a cup of hot chocolate in front of $nick
  489. n264=1:ON TEXT:*~eggnog*:#:/msg $chan 12ºBartenderº sets a glass of eggnog in front of $nick
  490. n265=1:ON TEXT:*~icetea*:#:/msg $chan 12ºBartenderº gives $nick an Ice cold glass of Iced Tea
  491. n266=1:ON TEXT:*~lemonade*:#:/msg $chan 12ºBartenderº hands $nick an ice cold glass of lemonade, enjoy!
  492. n267=1:ON TEXT:*~spunch*:#:/msg $chan 12ºBartenderº sets a cold glass of sparkle punch dowwn in front of $nick, enjoy!
  493. n268=1:ON TEXT:*~cheesestick*:#:/msg $chan 12ºBartenderº sets a basket of cheese sticks down in front of $nick. Enjoy!
  494. n269=1:ON TEXT:*~ham&swiss*:#:/msg $chan 12ºBartenderº puts a huge ham and swiss sub in front of $nick.
  495. n270=1:ON TEXT:*~stew*:#:/descrbe $chan 12ºBartenderº puts a big bowl full of stew in front of $nick, enjoy!
  496. n271=1:ON TEXT:*~gatorade*:#:/describe $chan 12ºBartenderº gives $nick a $parm2* flavored gatorade
  497. n272=1:ON TEXT:*~buffmild*:#:/describe $chan 12ºBartenderº sets a plate of mild buffalo wings in front of $nick
  498. n273=1:ON TEXT:*~buffhot*:#:/describe $chan 12ºBartenderº sets a plate of HOT buffalo wings down in front of $nick
  499. n274=1:ON TEXT:*~buffSUPERHOT*:#:/describe $chan 12ºBartenderº Gets his welder gloves on, grabs steel tongs, and places a plate of OH MY GOD hot buffalo wings in front of $nick. Be careful!
  500. n275=1:ON TEXT:*~say*:#:/describe $chan 12ºBartenderº $nick says: $parm2* 
  501. n276=1:ON TEXT:*~jolt*:#:/describe $chan 12ºBartenderº gives $nick a bottle of Jolt!
  502. n277=1:ON TEXT:*~hamburger*:#:/describe $chan 12ºBartenderº gives $nick a hamburger with $parm2* enjoy!
  503. n278=1:ON TEXT:*~hamburgerplain*:#:/describe $chan 12ºBartenderº gives $nick a plain hamburger,, enjoy!
  504. n279=1:ON TEXT:*~cheeseburger*:#:/describe $chan 12ºBartenderº gives $nick a cheeseburger with $parm2* , enjoy!
  505. n280=1:ON TEXT:*~get*:#:/describe $chan 12ºBartenderº gives $nick $parm2* , there you go!
  506. n281=1:ON TEXT:*~beer*:#:/describe $chan 12ºBartenderº pours $nick an ice cold $parm2* enjoy! 
  507. n282=1:ON TEXT:*~wine*:#:/describe $chan 12ºBartenderº hands a glass of $parm2 vintage $parm3 to $nick º 
  508. n283=1:ON TEXT:*~soda*:#:/describe $chan 12ºBartenderº grabs a can of $parm2 and hands it to $nick 
  509. n284=1:ON TEXT:*~cig*:#:/describe $chan 12ºBartenderº gives $nick a pack of $parm2 
  510. n285=1:ON TEXT:*~light*:#:/describe $chan 12ºBartenderº gives $nick a light 
  511. n286=1:ON TEXT:*~send*:#:/describe $chan 12ºBartenderº hands $parm2  $parm3*  This is from $nick | /notice $parm2 $nick sends you $parm3*
  512. n287=1:ON TEXT:*~tab*:#:/describe $chan  12ºBartenderº thanks $nick and hopes he/she will continue to use ºBartenderº in the future 
  513. n288=1:ON TEXT:*~coffee*:#:/describe $chan 12ºBartenderº gives $nick a cup of coffee 
  514. n289=1:ON TEXT:*~espresso*:#:/describe $chan 12ºBartenderº gives $nick a cup of espresso, Enjoy! 
  515. n290=1:ON TEXT:*~tea*:#:/describe $chan 12ºBartenderº pours a nice cup of tea for $nick 
  516. n291=1:ON TEXT:*~flower*:#:/describe $chan  12ºBartenderº Is proud to present $parm2 with a single long stemmed $parm3*  |  /notice $nick Flowers have been sent!
  517. n292=1:ON TEXT:*~dozen*:#:/describe $chan 12ºBartenderº is proud to present $parm2 with a dozen long stemmed $parm3*  's |  /notice $nick Flowers have been sent!
  518. n293=1:ON TEXT:*~tip*:#:/describe $chan 12ºBartenderº Thanks you for your tip!! 
  519. n294=1:ON TEXT:*~cigar*:/describe $chan 12ºBartenderº hands $nick a, $parm2*  cigar 
  520. n295=1:ON TEXT:*~shrimp*:#:/describe $chan 12ºBartenderº sets a dish of Golden Fried Shrimp in front of $nick
  521. n296=1:ON TEXT:*~lobster*:#:/describe $chan 12ºBartenderº  serves a live boiled lobster with drawn butter to $nick 
  522. n297=1:ON TEXT:*~cake*:#:/describe $chan 12ºBartenderº slices off a BIG piece of $parm2* cake and gives it to $nick 
  523. n298=1:ON TEXT:*~ice cream*:#:/describe $chan 12ºBartenderº scoops a big dish of $parm3*  ice cream, and hands it to $nick 
  524. n299=1:ON TEXT:*~doughnuts*:#:/describe $chan 12ºBartenderº gives $nick a plate of $parm2* doughnuts. 
  525. n300=1:ON TEXT:*~popcorn*:#:/describe $chan 12ºBartenderº gives $nick a big box of popcorn dripping with butter, Enjoy! 
  526. n301=1:ON TEXT:*~scallops*:#:/describe $chan 12ºBartenderº gives $nick a plate heaped with scallops, enjoy! 
  527. n302=1:ON TEXT:*~pizza*:#:/describe $chan 12ºBartenderº gives $nick a slice of $parm2*  pizza 
  528. n303=1:ON TEXT:*~spaghetti*:#:/describe $chan 12ºBartenderº puts a big plate of spaghetti in front of $nick
  529. n304=1:ON TEXT:*~hotwings*:#:/describe $chan 12ºbartenderº gives $nick a bucket of hot wings, enjoy! 
  530. n305=1:ON TEXT:*~steak dinner*:#:/describe $chan 12ºBartenderº gives $nick a steak dinner 
  531. n306=1:ON TEXT:*~french fries*:#:/describe $chan 12ºBartenderº puts a plate of crisp golden friench fries in front of $nick
  532. n307=1:ON TEXT:*~ketsup*:#:/describe $chan 12ºBartenderº puts a bottle of ketsup in front of $nick 
  533. n308=1:ON TEXT:*~prime ribs*:#:/describe $chan 12ºBartenderº places a plate of tender prime ribs in front of $nick
  534. n309=1:ON TEXT:*~milk shake*:#:/describe $chan 12ºBartenderº places a huge $parm2* milk shake in front of $nick ! 
  535. n310=1:ON TEXT:*~hot dog*:#:/describe $chan 12ºBartenderº puts a hot dog in front of $nick | 
  536. n311=1:ON TEXT:*~garlic bread*:#:/describe $chan 12ºBartenderº grabs a basket of garlic bread and puts it in front of $nick
  537. n312=1:ON TEXT:*~mustard*:#:/describe $chan 12ºBartenderº gives $nick a bottle of mustard. 
  538. n313=#bartender end
  539. n314=1:ON JOIN:#:{
  540. n315=  inc %count 1
  541. n316=  /notice $nick Welcome to 4,15-4,14:4,1[  $+ $chan $+ ]4,14:4,15-4,15Todays date & time-<  $+ $date - $+ - $time $+ >-4,14You are person Number -{ 9,1 %count 4,14 }- | { if ($me isop $chan) { %snick = $nick | %schan = $chan | .enable #checkchan | whois $nick } | else { halt } }
  542. n317=}
  543. n318=1:on invite:*:msg $nick Thanks for the invitation | ignore -iu60 $nick 2
  544. n319=1:ON TEXT:!YoMama:#:/describe $chan says: $nick $+ , $read c:\mirc\yomama.txt
  545. n320=1:ON PART:#:/notice $nick ByeBye $nick, Don't Forget To Write!!!
  546. n321=1:ON TOPIC:#:/describe $chan admires $nick's new topic!
  547. n322=+18:ON TEXT:*:*:/kick $chan $nick ((( FeAr NoIsEkIcK )))
  548. n323=+12:ON JOIN:#:/kick $chan $nick ((( FeAr AuToKiCk )))
  549. n324=#swearkick disabled
  550. n325=1:on text:*fuck*:#:/kick $chan $nick <Watch your mouth>
  551. n326=1:on text:*shit*:#:/kick $chan $nick <Watch your mouth>
  552. n327=1:on text:*cunt*:#:/kick $chan $nick <Watch your mouth>
  553. n328=1:on text:*ass*:#:/kick $chan $nick <Watch your mouth>
  554. n329=1:on text:*bitch*:#:/kick $chan $nick <Watch your mouth>
  555. n330=1:on text:*cock*:#:/kick $chan $nick <Watch your mouth>
  556. n331=1:on text:*dick*:#:/kick $chan $nick <Watch your mouth>
  557. n332=1:on text:*slut*:#:/kick $chan $nick <Watch your mouth>
  558. n333=#swearkick end
  559. n334========================Away====================
  560. n335=#away disabled
  561. n336=1:on text:*<your nick>*:#:/notice $nick I've been away for %minutes minutes - %away
  562. n337=1:on action:*<your nick>*:#:/notice $nick I've been away for %minutes minutes - %away
  563. n338=1:on text:*:?:/msg $nick Hi $nick, I've been away for %minutes minutes - %away
  564. n339=#away end
  565. n340=#pagersay disabled
  566. n341=1:on text:*<your nick>*:#:/notice $nick Hi $nick, please <ò> /ctcp $me page <ò> to yell at me
  567. n342=1:on action:*<your nick>*:#:/notice $nick Hi $nick, please <ò> /ctcp $me page <ò> to yell at me
  568. n343=1:on text:*:?:/msg $nick Hi $nick, please <ò> /ctcp $me page <ò> to yell at me
  569. n344=#pagersay end
  570. n345======================NETSPLIT=================
  571. n346=1:ON QUIT: {
  572. n347=  if (%splitstat == OFF) { halt }
  573. n348=  if (($right(7,$parm1) == dal.net) && ($right(7,$parm2) == dal.net)) {
  574. n349=    if ($parms == %split) { halt }
  575. n350=    set %split1 $token(1,46,$parm1) | set %split2 $token(1,46,$parm2)
  576. n351=    echo 12******** SPLIT WARNING ********
  577. n352=    echo 12Possible Split at: é $+ %split1 $+ é $+ %split2 $+ é
  578. n353=    echo 12***** -=[Split Detector v1.0]=- *****
  579. n354=    set %split $parms
  580. n355=    timer 1 5 unset %split
  581. n356=  }
  582. n357=}
  583.  
  584. [Raw]
  585. n0=#partyline_raw disabled
  586. n1=311:*: {
  587. n2=  writeini $mircdirpl\who.ini who $parm2 $parm2 $+ ! $+ $parm3 $+ @ $+ $parm4
  588. n3=}
  589. n4=318:*: disable #partyline_raw
  590. n5=#partyline_raw end
  591. n6=#opscan disabled
  592. n7=352:*: {
  593. n8=  if (* isin $parm7) { set %oper %oper $parm6 }
  594. n9=}
  595. n10=315:*: {
  596. n11=  %todo 12Scanning for IRCops on ╗ $+ $parm2 $+ ½ . . .
  597. n12=  if (%oper != $null) { %todo 12IRCops:4 %oper }
  598. n13=  else { %todo 4No IRCops Present }
  599. n14=  .disable #opscan | unset %oper
  600. n15=}
  601. n16=#opscan end
  602. n17=#status disabled
  603. n18=352:*: {
  604. n19=  if (%clone == $null) { set %clone echo 4 }
  605. n20=  if (+ isin $parm7) { set %voiced %voiced $parm6 }
  606. n21=  if (G isin $parm7) { set %awayz %awayz $parm6 }
  607. n22=  if (* isin $parm7) { set %operz %operz $parm6 }
  608. n23=  if (%clonenick [ $+ [ $parm4 ] ] != $null) && ($parm4 !isin %cloneaddlist) { set %cloneaddlist %cloneaddlist $parm4 } 
  609. n24=  set %clonenick $+ $parm4 [ %clonenick [ $+ [ $parm4 ] ] ] $parm6 | halt
  610. n25=}
  611. n26=315:*: {
  612. n27=  %clone $str(25,=-) $+ =
  613. n28=  %clone 12ChaNneL StaTiSTiCs FoR ╗ $+ $parm2 $+ ½ . . .
  614. n29=  %clone 12ToTal PeoPLe: 4( $+ $nick(0,$parm2) $+ ) 12OpZ 4( $+ $opnick(0,$parm2) $+ ) 12NoN-OpZ 4( $+ $nopnick(0,$parm2) $+ )
  615. n30=  if (%awayz != $null) { %clone 12Away:4 %awayz }
  616. n31=  else { %clone 12Away: 4None. }
  617. n32=  if (%voiced != $null) { %clone 12Voiced:4 %voiced }
  618. n33=  else { %clone 12Voiced: 4None. }
  619. n34=  if (%operz != $null) { %clone 12IRCops:4 %operz }
  620. n35=  else { %clone 12IRCops: 4None. }
  621. n36=  %clonec = 1 | if (%cloneaddlist == $null) { %clone 12CloNeS... ? | %clone 12Clones: 4None | goto end }
  622. n37=  else { %clone 12Clones: 4Yes | goto loop }  
  623. n38=  :loop
  624. n39=  %clone 12CloNeS: %clonenick 4[ $+ [ $token(%clonec,32,%cloneaddlist) ] ] ( $+ *!*@ $+ $token(%clonec,32,%cloneaddlist) $+ )
  625. n40=  inc %clonec | if ($token(%clonec,32,%cloneaddlist) != $null) goto loop 
  626. n41=  :end
  627. n42=  %clone $str(25,=-) $+ =
  628. n43=  unset %clone* %awayz %operz %voiced | disable #status | halt
  629. n44=}
  630. n45=#status end
  631. n46=#CloneScan disabled
  632. n47=352:*: {
  633. n48=  if (%clonenick [ $+ [ $parm4 ] ] != $null) && ($parm4 !isin %cloneaddlist) { set %cloneaddlist %cloneaddlist $parm4 } 
  634. n49=  set %clonenick $+ $parm4 [ %clonenick [ $+ [ $parm4 ] ] ] $parm6 | halt
  635. n50=}
  636. n51=315:*: {
  637. n52=  if (%clone == $null) { set %clone echo 4 }
  638. n53=  %clone 12CloNe ScaN FoR ╗ $+ $parm2 $+ ½
  639. n54=  %clonec = 1 | if (%cloneaddlist == $null) { %clone 12CloNeS...? | %clone 12Clones: 4None | goto end }
  640. n55=  else { %clone 12Clones: 4Yes | goto loop }  
  641. n56=  :loop
  642. n57=  %clone 12CloNeS: %clonenick 4[ $+ [ $token(%clonec,32,%cloneaddlist) ] ] ( $+ *!*@ $+ $token(%clonec,32,%cloneaddlist) $+ )
  643. n58=  inc %clonec | if ($token(%clonec,32,%cloneaddlist) != $null) goto loop 
  644. n59=  :end
  645. n60=  unset %clone* %ticks | disable #CloneScan | halt
  646. n61=}
  647. n62=#CloneScan end
  648. n63=======================PERV KICK=====================
  649. n64=#checkchan disabled
  650. n65=319:*: {
  651. n66=  %checkchan = $parms | %checknum = $count(%checkchan,$chr(32)) + 1 | %i = 0 | :loop | inc %i 
  652. n67=  if (%i > %checknum) { goto end } 
  653. n68=  else { 
  654. n69=    %checkreal = $token(%i,32,%checkchan) 
  655. n70=    if (teen isin %checkreal) && ((sex isin %checkreal) || (pic isin %checkreal)) { ban -u300 %schan %snick 3 | kick %schan %snick º╗í½º []baz▀ot[] Teen Sex Channel Detected ( $+ %checkreal $+ ) 5 Minutes Ban! []baz▀ot[] º╗í½º | goto end }  
  656. n71=  else { goto loop } } 
  657. n72=  :end | .disable #checkchan | unset %check* 
  658. n73=}
  659. n74=#checkchan
  660.